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Have you heard the one about the programmer that went to heaven. 
They sent him bacK because his name wasn^t in the COMPUTER. 

After that we can only get better. This months issue will be made 
up mostly of programs submitted by the members. By the time you 
get this we should be tack from our vacation. 

hey folks, I h.-.ve a question for you. 

In one of the programs in this months letter (HANOI), the 
programmer refers to the ability to do RECURSIVE programming 
and 1 hate to say it but that is a new one on me and if somebody 
out there could write and give me some of their knowledge on it I 
would appreciate it. 

STUMPED 

»«»««« ««««««»««««»«««$ 

F^cor^ -tlncDa-tie ot-xt wx-tihi IDZSC'S. 

I have been havinr 2 problems with my Floppies and I think 
I've resolved them and it might nelp you. 

2. Fragmentation of .‘-.ta files when updating &/ adding oata to a 
FILE on a FLOPPY with multiple FILES or PROGRAMS. 

2. Destruction of DATA files on FLOPPY when mixing programs 
on same FLOPPY. 

POSSIBLE SOLUTION: 5 Now when I want a data file on the 
FLOPPY I write a simple program to build a blank file on the 
FLOPPY that is tne maximum size I think I will ever need. 

This will keep it vrom fragmenting the data and so far I have 
not had any problems with mixing the DATA and PROGRAM FILES. 

HERE IS A SIMPLE >• ROGRAM TO USE TO BUILD FILE. 

10 DIM A»(299),FN<.;6) 

20 FDR I =» 1 TO 299: "sNEXT 

90 FNS»" “ 

100 INPUT "NAME OF YOUR DATA FILE",FN* 

110 INPUT "NUMBER OF RECORDS W ANTED ".L 

120 INPUT "INSERT DATA DISC AND HIT RETURN", Z 

130 OPEN 0FN» 

200 FOR I = 0 TO L 

210 PRINT #0;A*iJ),A«(100),A»(200) 

220 NEXT I 

230 INPUT "DO iT AGAIN", A*(0) 

240 IF A*<0)="Y" THEN CLOSE 0:GOTO 90 
250 STOP 

In-Fca -Fr-cz>m STA=^CV F>R0UIE:L-I_ 

Here is the way to get QUOTATIONS to print without using the 
CHR*(34) . . . 

Ex: to print PRESS "RETURN" you can type 

10 PRINT ’■PRESP "RETURN"' 

Also you can use a period In a variable name. Ex: A. is 
different from A or AA. 

THANKS STACY 

ttt***ttt**il.1ftttti*t*:t*.**M*tttttt*ttM$*t*t*Mt*tt***t**ttt*t**$tt 
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3tc3tc4c#;4c4c:JiC3(C3K:3^)f:::3ic3fc}«C}fc:|cMt3iE3«C3lc]|C9fe:»e4t3ee4C3»C3«e3lc4c3C«9lc 
c:aX X !i=tc3ix X ba>c:>x 

Here are some carrectione for the APF Diaassember -for those 
machine language programmers out there that are working with it. 
Line 1005 change Ti^F* tcs *T«F^ 

Line 1240 Change , EIOFtA , 

to !_r>AS, EORB ^ #=iI5C:S- . - 

This should eliminate some of the confusion with the program. 
Thanks to all of the MEMBERS ssfr-»-t. in 

B^ssi cz Bcox B^«5i c: Bcox 

Hey folks here is a reprint of some info from last years issue 

along with somemore. These formulas are for SIN, COB, TAN, 

ARCSIN, ARCCOS, ARCTAN. . 

S I N ( S ) =S / 1 -S -^3 /3 -i-S-'f. ' 3 i -S-^T/T I 
COS (S> =l-S-"'2/2 ! -t-S-^4/4 ; -S''i>/6 ! -S^8/B ! 
TAN(S)»S+S-^3/3+2»S''5/lS-t-17*S''7/3l5 
ARCTAN(X)=X-X''3/3+X-^5/5-X'^7/7 IF X^2<1 
ARCTAN(X)«3. 1416/2-1 /X+ 1 /3*X''2-:/5*X'‘S+l /7»X'''7 IrXl 
ARCTAN<X)*-3. 14l6/2-l//X+l/3»X'^2-l/5*X'^5+l/7*X'7 IF X<-1 
ARCCOT (X)“3. l416/2-X + X'*^3/3-X^'5/5+X ''7/7 IF X '‘2<1 

ARCSIN <X>«X+X'^3/2»3-<- ( 1«3/2»4*S) *X''S+ < l»3*5/2#4*6*7) SX-^7 
IF X^"2<i 

ARCC0S<X)»3. 1416/2- (X+X^3/2*3+<l*3/2#4»5> *X^5+ ( 1 *3*5/2«4«6«7> #X'^7 
The funny little teepee In the formulas means EXPONETIATION. . 

I hope that these help some of you that have been needing them. 

If you want more of these you can find them is just about any of 

the Mathematical Tables books that can be found in the SOOKSTORES. 

Oops almost forgot to tell you what * means. It is called 

FACTORIAL and here is what it does. If you have 3 ! this 

is the same as3'i = i3*cS3ls3 * A- 

<=^:i fscd. mi =>» i - - - 

I think I strained my brain again..... 

«««»»»«««»««««««»««««« 

Et“C5fn if^X &.r\ S Vcost 

Alan would like to have a complete list of tne CALLS, PEEKS&PCKES 
for the machine. 

Rignt now I don’t have a complete list of them now but if the 
members would be willing to send me copies of what they know and 
have I will compile- them into a good list and make it available 
to all of the members. 

Here is a program Alan sent in to allow you to test your game 
control lers. 

10 DIM A«(n ,B* (1) 

20 LET A$»KEY*(2)8LET B*»KEY§<1) 

25 IF AS®"" THEN IF B»="" THEN 20 
30 PRINT A*, B*: GOTO 2 
#######Thanks for the program alan##### 

xxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


\ {01 RA6IC SSlMffiS ..BY d « SCHHIST fy5/82 

2 DDD WnBERS USE SE LA LDUBERE ^THOD 

3 REN EVEN NUMBERS USE SKAR NETHOO 

93 RER NATRIY IS LIMITED BY SCREEN SHE 
IM DIN HIS, 8) 
m REM SENERATE SEED VALUE 
HI VB« !HT < RND <l)tl5)tV>V9 
ns REN REN SET USERS NUflBER 
12B INPUT ’NHAT SHE -(3 TO 8)’, I 
125 IF N>d THEN 121 

131 IF H/2> IXT W2) TNEN 3M> REM EVEN N» 

133 REN SET START RM Att COLUNM 

Hf R*1:C« INT (N/2}n 

15# V=V+I;R(R,C)«V 

ISS REN ETIT WEN MATRIX FULL 

Ihi IF V*N*2+VB THEN 22# 

liS REN IF V IS INT SER NULTIPIE Of N 6C DOW 
17i IF (V-VB>/»N INT nV-VB)/N) TICN S»»*h SOTO 15# 
175 REN MV HOVE ftlSHT AND UP NHEN POSSIBLE 
IS# CaC+1 

1S5 REN MRAP AROUND IF RES’D 
!9# IF ON THEN C>l:R-R-l! SOTO IS# 

2#» R=R-1: IF R>0 THEN 151 
21# R»N: SOTO IS# 

215 : 

22# CALL t7#46 

225 REN CALC TtC IMIC NUMBER 
23# T>nN'‘3«N)/2)*(V6IN) 

24# PRINT *TH£ NA6IC NUNBER IS ',7: PRINT 
245 REN PRINT THE HATRII 
25# FOR R*1 TO N 

2E# PRINT USIN6 29«,N(R,U,H(R,2),N(R,3),fl<R,4),N(R, 
271 NEXT Rl INPUT 'HIT RETURN TO DO A6AIN*,R: RUN 

298 :lt It M l« « f« H It 

295 : 

30# REN SENERATE EVEN BASE MATRIX 

31# FOR R>1 TO N 

32# FOR C=1 TO N 

331 VaV*l8H(R,C)»V 

34# NEXT C: NEXT R 

345 ! 

351 REN SNAP DIAS ON AL 

36# IIN!T=N/2:C»N 

37# FCR R‘i TO UNIT 

38# T*N(R,R]:N(R,R)«N{C,ChN(C,D*T 

39# T»NIC,R)iHIC,t»»H(R,C)iNIR,C)«T 

4»# C^-1: NEXT R 

41# IF N•4 THEN 22is REM 4X4 B ON E 
413 8 

42# R«2!X*Hi IF ((•a THEN 48# 

43# REM 6X6 INT ERNAL SNAP (HQR * VER) 

44# FOR C»l TO LIHIT 

4SI T=‘N<R,C}:H(R,C}*M{R,X):H<R,X{>? 

46# T=NlC,R):N<C,Rl«Ma,R):N(X,R)>T 

47# R>Rt2:X>X-l: NEXT Ct MTO 22#i REN 6X6 S ON E 

46# C«1:2«N-1 

4W FOR !»1 TO LIHIT 

51# IF I«Linn THEN ft>R-2sZ>Z*2 

Si# T*N(R,C}:N(R,£)»H(R,X):N(R,X1*T 

52# T^N<Z,C):H<Z,C)-n(Z,Xl:H(Z,X)«r 


S),N(R,6),N(R,7),N(R,8) 


525 REN 8X8 VIRTICAL SMP 

530 IF KIHIT THEN {Nf-UWn 

54# T'N(C,R):H(C,R)<NiX,R}:N(X,R)>r 

551 T=NIC,2):N(C,Z)*n(X,Z):Ma,I)»T 

560 R»«fhC»Cn:X*X*l»Z»Z-lJ «XT li SOTO 220 

900 PRINT ’STOP* 


*: PRIKT s «;ilT t PRWT 
3. AL£I MAilSHON 


, PSWT t PRIKT : KWT • 


II CALL 17f4& 

21 POKE 24578,32 

21 PRIKT ' CASH I^SISTU 

22 mfr j WHIT j PRIIIT j fSlHT * 

23 FOt I«1 TQ SM: NEKT I 

24 CALL 17l4i] BOStlS 2m 
23 1»« 

26 CALL 17146 

27 C*#!T*I 
3# Din A(12) 

41 A<I)>3I«.M 

SI 

61 Aj2)-5I.M 
71 A(3)*2I.M 
81 A(4)=1I.N 
9# A(S)»5.#I 

III A(6)«2.M 
111 A(7)«{.fl 
121 A(8)*.S4 
131 A(9)».25 
141 Aai)*.lf 
151 Aill)>.l9 
161 A(12)*.I1 

161 MINT • CASH REBISTER '« PRINT 

163 PRINT 'PRESS AflOUNT TNICE TO BET TOTAL* 

166 PRINT s PRINT ; PRINT : PRINT S PRINT : PRINT i 
171 I!WT •AnOWT OF PURCHASE*, P 
171 mjSIC ‘12* 

175 CALL 17146 
181 IF M 60TD m 
:9I T»T*P 
192 L=# 

195 SOTO 171 
199 CALL 17146 

2M PRINT USING 'SUBTOTAL > IMIH.II'J 

211 TAI*T/2S 

212 O^TAltlM 

213 »■ INT (D) 

214 0«D-ns IF 0.49 THEN L».ll 
2*5 TAZ=(H/III)4L 

216 T*T»TAI 

217 PRINT USING 'SALES TAZ • tMHI.n',TAI 

218 nitSIC ‘Z5t4tS' 

219 PRINT USING 'GRAND TOTAL > Itltll.ll'.T 

211 iienn 'enter anount tendered*, b 
221 If S<T SOTO SM 

231 IF S>T PRINT 'THANK YOU FOR SIVINO THE EIACT CHANGEl'l GOTO IIM 2352 NU81C * 


'YOU STILL OK tflH.M .*,7: SOTO 211 


5BI T»T-8 
515 nusic '/T/i* 

Sll PRINT USINI « 
tIM SOTO 431 
1111 PRINT 'Y’ALL COK BACK «' SO US AGAIN* 

1121 IP S=5I SOTO 2fM 
1121 S«S4!: GOTO Illl 
2111 COLOR Ms SHAPE »15 
2115 KLIN 11,21,3 
2111 COLGS s7 

2815 HLIN 9,22,2s HLIN 9,22, 4i PLOT 9,3s PLOT 22,3 

2121 OLDR »5s HLIN 11,23,1s HLIN 11,24,1; VlIN 1,11,23s VlIH 1,9.24 

2123 VLII5,lJ,22i VLIN 6, 12, 21s VLIN 7,13,21 

2131 VLIN 9, 14, 19s VLIN 11,15,18 

2135 COLOR *1 


PRINT s PRINT i PRINT s PRINT 


2136 VLIN 13,15,4 

2137 VLIN 13,15,3 

2MI HUN 5,17,15s HLIN 5,17,14s HLIN 5,17,13 
2145 COLOR *5 

2851 HLIN 8,21,5s HIN 7,21,6 
2155 HLIN 6,19,7: HUN 6,19,8t NLIN 5,18,9 
2161 HUN 4, 17, lit lfl.IN 4,17,118 HLIN 4,17,12 
2165 COLOR *38 VLIN 13,15,17 

2171 POKE 618,36 

2172 POKE 621,13 
2175 POKE 622,15 
28SI POKE 624,14 
2885 POKE 626,5 
2191 POKE 628,25 

2111 FOR Q»619 TO 629 STEP 2 

2211 POKE Q,42 

23H NEXT 6 

2341 FOR 1*1 TO 2 

2351 NUSIC '3ISM34I5II* 


241 C»I'T 

251 PRINT USIH6 'YOUR CHANGE IS Hfll.M .',0 
255 NUSIC *16* 

261 PRINT 

271 IF C<An) THEN I»I*1 

275 IF 1)12 THEN GOTO 4M 

276 NUSIC ’17' 

281 IF OAd) TI£R PRINT USING *«4Ht.H*,A(I}sC«C-An) 
291 GOTO 271 

411 PRINT 'THANK YOU FOR YOUR PATRMA6E!' 

4SI INPUT 'ANOTHER PURCHASE (I*YESI1*N01*,2Z 

451 IF I2»l THEN GOTO 25 

452 GOTO Illl 


2355 NUSIC ’3ISII34«S«I' 

2361 NUSIC • K3ft3ltllt2llllt2itlll3lll|lilt2li;ilM' 
2371 NUSIC ■ * 

24H NEXT I 

2451 IF S*SI SOTO 2611 

2SM RETURN 

26H GOTO 2341 


II RANttI 

15 R£R }1»5Y RlCKlTYtt! 

21 RO! tltlNlTIALnATIONtii 
41 PCj;£ 24578,33: PSkE •i»'?94,:7 
it m HHt),nfLlAl,l(HW,BiS) 

7# IIhH£S«l:5A«-i!f!i-V7/5l /i/4/2/5«/3/2/3/« /3/iS/2l/4« /6/5/6 74/21* 

81 eOTQ lit# 

IM RER tnSOCSJES SLiBROUTliettt 

III CALL 17144 

115 IF GLinPSc>4 TKE4 6IH 
121 m I»1 TO 4 
HI IF SLIl^EOI Tm 184 
I4f G>Z1^ INT < RM li;iS12)tS12 
IBI POKE Sill, 239; ftUBIC ‘47/147* 

182 KEZT I 

184 SLI/«»S£<=8LI/I^n 

194 FOR 2^ Tc .4M: NETT I 
m CAU. 17*44 

195 RETUW 

1M4 RLf rttPMSRM ECT If AND :;4STRX7!0NSIU 

i*24 7** :m i i4)lli2>*5l2:K££PSf»J82 

144IRUNCH* INT i fiNS ;»: .^i2)+S12:?fAR-13a 

1881 COUNT=4iKOUNT‘:4.BLlRPSE>i 

!U« IF NINKK=i THEN 1241 

1204 CALL 17446 

1224 INPUT ‘NHO ARE yOU*,N4 

1241 PRINT : FRI/lT ‘NOVE TME NUNCH IWI NITH THE LEFT JOY STICK* 

1254 PRINT 1 PRINT *SPY ON THE RENAININS SOODIES HITN THE aiEAR) BUTT».* 

1255 PRINT : PRINT 'TRY TO EAT ALL T}^ MOOIES' 

1257 PRINT : PRINT ‘DON'T TAKE TOO L0N6 DON’T SPY TOO OFTEN* 

1264 PRINT ‘READY 

1274 PRINT 'PRESS THE RETURN KEY TO SEE THE SOODIES*; PRINT 

1275 INPUT *IKIN’T F0R6ET WERE T«Y ARE!*, I 
1284 NUSIC Nt 

1344 G0SU8 144 

1501 REH ttJBOVE THE KEEPERIII 

ISIS FOR NARNa TO IS; PRINT ‘BENARE THE KEEPER*: NUSIC 't*Vi NEXT NARN 
1517 CAU. 17446 

1543 POKE RUNCH.NAN 

1514 X* INT ( RND (I)t4)tl 
152# y= INT { RND (IllINl+l 
1536 ON X GOTO 1S4I,:S5#, 1564, 157* 

1544 TH£*THE-32IYs SOTO 153* 

1551 THE=TK£+Y5 d'TO 1584 
156# THE=THE-Y: SOTO 1584 
157# THE-7HE«-32IY 

158# IF Tft<512 THEN TH£-THE*512 

159# IF THE>1I23 THEl Ti€*TH£-5l2 

1644 PftCE THEjKcCPER 

173# FOR RANEE-l TO 1 STEP 2 

1724 IF THEfRANGE^NUNCH THEN S4M 

174# IF rHEtRARSEl:^NIM3l THEN 5444 

176* IF TH£«RANSEt32«RAAaE*NUNCH THEN 514* 

1771 IF Ti^tRAKG£l32-RANSE-nUNCH THEN 54H 

178# NEXT RANeC 

18S0 IF THE^NCh THEN 5094 

2444 REN tUNUNCH HAN HOVERENTItl 

2414 A4> KEYI (Di if Af«'* THEN ISII 

2424 IF A6**?* THEN 8QSUB 144 

2044 IF AM'N* THEN AUNCH-RUNCH*32:NAN»151 


:f6i IF THEH 

im IF THEM «l}NCHsfW'iCiMsfW(*J57 
21» IF St=*S* THEN fRJ>KH*HW»CH*52:rWN»157 
2121 IF NUNCH<552 THEN HIJW:H*NUNCH*5I2 i WSIC ’2#1‘ 

2!4# IF HUNCH>132! THEN mJNCHs«WJCH-5I2s IWSIC 'IK* 

2161 POri WNCH.223 
217E CfiU 17«#6 
218# ZPLL 17S46 
2198 POKE ltUNCH,NAN 
228f REN littClSCK FOR SOOSIESttt 
2211 FOR I»1 TO 4 

2221 IF H>.«(CH<e:n THEN SOS’S 4fH 
2241 NETT I 
2Zfi COl!NT=COU*T<-! 

2488 IF C(XINT>83 TO tm 
25#§ SOTO 2fll 

Zm RER ttlNINNER ROUTINETSt 
3821 OAU. 17146 
2825 «INNER»! 

3830 PRINT ‘THAtir YOU 'jNI 

3MI PRINT 5 PRINT 'THOSE KPE VERY SMD 800DIES...* 

386# FOR LINE*# TO 18: PRINT j NEXT LINE 
3#8I SiWE»8fi*E*l! PRINT 'YOU HAVE NON '{SANE}* 6AI 
3#9» INPUT 'PRESS RETURN FOR ANOTHER 6«', I 
31f8 80TQ 1#M 

4##f REN UtNUNCH,RUNCH,flliMCH SUSROUTINEItt 
4i2« 6a)*61X)-515 
4041 PRINT 'HUNCH HUNCH HL4CH' 

406# iniSIC 'T##! 7##1 7#ll' 

4#B# FOR Z*0 TO 3##: NEXT Z 
41#3 PRINT 'BEEFLILLLLCH’ 

412# NUSIC '-/l(’##9#MliHI«f«* 

414# FOR Z*0 TO 3H: NEXT Z 
4160 Nl'«IC « 

4!B« NCUNT*!(CUNT-I 
4209 IF KOUNT*f THEN 3111 
422# CALL 17046 
430# RETURN 

5I«8 REN StYSflTCHA ROUTINE4I4 
592# PRINT 'dOTCHA 
5#4# NUSIC Nt 

5#6# PRINT } PRINT 'HUNCH HEN' 

5080 PRINT t PRINT 'ARE HP HATCH FW THE KEEPER* 

51## PRINT : PRINT TAB U#}5'T«SE ARE’ 

514# FDR 1=4 TO 3Mi NEXT Z 
516# HUSIC H# 

521# CAa 17946: COLIS * INT ( RNO <9)t8)t SHAPE *15 

522# VLIN 4,l#,3i VLIN 4, I#, 3 

524# FOR RY»4 TO 9: PLOT HY,HY+1: NEXT HY 

526# UP*9 

528# FOR HY»1I TO 14j PLOT HY,IPjUP**JP-1j NEXT HY 

531# VLIN 4,10,15: VLIN 4,1#, 16 

532# FOR HYs2fl TO 23: PLOT HY,HT-I6l NEXT HY 

5341 VLIN 8,11,24: VLIN S, II, 2S 

5361 PLOT 26,7s PLOT 27,6s FIDT 28,5s PLOT 29,4 

538# PRINT TAB (13)5'8000IES= 

54## PRINT s PRINT s SOTO 7### 

6#N RSH lULOSER'S RQUTINEIJJ 
4020 PRINT 'YOU LOSE '}« 

604# PRINT 'THE HUNCH HAN SAYSs's PRINT ‘HOOOOOOaO#### IS HE!': PRINT : PRINT 


6I6# PRINT •! COULD HAVE EATEN ' 

6i7f IF KOUNT*! Tlffll PRINT KOUNTj' HORE S008Y!': SOTO 61## 
60B# PRINT KOUNT;' HORE 600DIES!' 

61#4 HUSIC HI 

6121 PRINT : PRINT 'NON’T YOU LET SOHEONE ELSE PLAY NON 

6141 PRINT s PRINT J PRINT 'SOOOBYE' 

616# PRINT : PRINT 

7### INPUT 'PRESS RETURN FOR WOTHER HEAL', I 
7i#l RUN 

8### REN I4IC0PYRISHT 1981 / 1983 
SIM REH tttRICK THOHAS THUESItIt 


0 POKE 2-(37e,39] CALl Utii-. DIH n«(l),FI2): SHAPE >iS> SQTO iH 

1 cxm * 3 : z,8i \£)T z»:,8: ‘jHAPE »l! CB.M *#: PLOT Z,7: SHAPE *13: RETURK 

2 COLOR «T; 7: f,XOR -§; SHAPE »2j PLOT 2,6j SHAPE 'ISs RETUW 

5 COLOR MS VLIM 7,9,': PLOT 2-1, Bi PLOT 2*1, Bi SHAPE »7j PLOT M,7s SHAPE ‘ils PLOT Zn,7! SHAPE *IJs PLOT SHAPE *M: PLOT 

Ztl,9; SHAPE *13: RETURR 

4 CXOR ‘7: 60SUB 7: fiETURH 

3 COLOR *2: 60SUB 6: SHAPE *23: PLOT Z-2,S> SHAPE x?: PLOT Z-2,lfl SHAPE >22: HLIR Z't,Z,lft SHAPE *3: HlIN 2-1, I, 6i SHAPE >15 

6 PLOT Z-I.li! PLOT Z-2,ij RETURR 

7 PLOT Z-2.8J PLOT 2+2, S: SHAPE »7i PLOT 2-2,7: SMWE «llJ PLOT Z+2,7j SHAPE -IS: PLOT 2-2,9: SHAPE =*24: PLOT 2^2, 9: SHAPE *13 
B VLIH 7,9, 2-i; '/LW /,9 ,Zj VlIH 7,9,Z*1: RETIW 

2M PRINT ; PRINT 'SCORINb IS SINPLE; 3 ORANOES, LENONS, OR BANANAS EARN III.* 

Ilf PRINT : PRINT *3 CHERRIES EARN SOSUB Oil 

121 CAa 17144: PRINT ; PflUfT ‘IF T* FIRST FRUIT IS AN APPLE YOU EARN 12.* 

131 PRINT : PRINT *Ir THE FIRST AND SECOND ARE APPLES, YOU EARN 13.': SOSUB 811 

141 CALL 17144! PRINT : PRINT ‘If THE LAST FRUIT IS A CHERRY, AND THE OTHER 2 ARE THE SAHE (BUT NOT APPLES), YSU EARN 111.* 

241 PRINT : PRINT ’EACH TURN COST II.* 

143 PRINT ' SOOD LOCK BOZO* 

144 PRINT " *j SOSUB 111 

147 PRINT ! PRINT 'l/SINO THE filSHT JOYSTICK, PRESS ’FIRE’ DR ’EN’ TO CONTINUE, OR U' 08 ANY NUNBER TO STOP.* 

148 Rx RNO (I): IF KEY! (1)«** THEN 148 
171 CAU 17I44:J<I 

IBI PRINT : FOR K-t TO 2:F{X)* TNT ( RND 11)13*1): NEXT 

341 IF F(|)*l THEN 381 

351 VKt.-. 421 

341 IF ri#)-F;i» THEN 441 

371 SOTC 441 

381 IF (KEN 4l« 

391 SOTO 461 

4H IF F(n»?rz) THEN 481 
411 SQTO 441 

421 IF F(«)*FI1) THEN SM 
431 SOTO 521 

441 IF Fa)«fi:) T;-S.: 341 
451 IF Fi2)«l ilfEB 341 
441 SOTO 551 

481 >J+89: SOTC 35# 

SM J»J+2j SOTO IJI 
321 J*J*l! SOTO 35< 

54# J«J*9 
551 PRINT 

541 FORK*# 7Q 2;i-F:Kl:Z*'K*l)l8: ON I 603UI 1, 2,3,4, 3: NEXT 
543 POKE 41941, )’’2 

37# PRINT SK NON HAVE I'jJ 

731 M» KEY! Ill: IF HI*’* THEN 731 
75# IF W**!* THEN CALL 171441 SOTO IN 

755 PRINT * * 

74# PRINT *ONE-AR" bAHJIT SAYS 6000B-8YE “ 

763 PRINT * * 

771 STOP 

811 WSIC *lHySl/5:23««#l9H* 

821 HUSIC *4f#41l2f3##l###* 

822 nuSIC '10O/3l/5i23HflN* 

823 KUSIC *333«2#2I3#2HMM* 

831 RETURN 


1 m A/WMAMAMM 1SE£ INiTR AT END Of PSK) 

2 : 

: iTOHERS Of HANOI iVS.t) 

4 { 

9 eOTO IMO: REN K TO HAIH 
A : 

18 : 

19 :SET ADDITIVES FOP ANY KK 

2A ON S OOSlffi 21,21,22,22,23,23,24,24: RETUOl 

21 A«t: RETURN i REN CSX 1,2 

22 A>2: Rn'jRN i REN BSi; 3,4 

23 A-3: RETURN t REN DSK S.A 

24 A«4: RETURN : REN KX 7,1 

25 s 

39 :ST SC-i-i: FOR ANY DSK ON ANY BAS 
4A ON B WSUB 41,42,43: RETWN 

41 SC>«5*Aj£C>I 5^: RETURN i REN BASE A 

42 SC=15>A:EC=lSfA: RETURN s REN MS B 

43 SC‘’2S-A:EC^2StAi RETURN i REH IAS C 

44 : 

51 :ST R FOR SSK D ON BAS 6 

52 IF B«2 THEN R»Rt3 
54 STURN 

5fi i 


524 riA(3,H)«OB!HA(B,Kl>MD 
52A if H>« THEN H*H-1 
52E RETURN 
52® 5 

53f iRESTOR (WL) HO, FI, T^, OB 
332 IF H<B TSN H-tt41 
534 FB>HA;i,K)tTB>M(2,Kl 
536 0B»HA(3,H)iND-HA(f,H) 

536 RETURN 
539 I 

541 I HANOI EDIT CHECKS 

542 IF rS'OB CAIL 17»H: 60T0 INI 
544 IF FB«OB CALL 17H8i SOTO 1181 
549 i 

551 HANOI 

552 IF ND<1 TSN 72t SN OUTPUT 

554 60SUB 522: SN SAVE 

556 ND«NO-lil(B«OB:OB>TB:Tfi>lB 

556 tSN CALL HANOI IND'l, FB, 06, TBl 

S6B 6DSUB S52 

562 60SUB 532: R^ RESTOR 
564 80SU6 72: SN OUTPUT 

566 60SU6 522: REN SAVE 

566 )(D»ND-l:]l6«FBiF8-DBiDD>!B 


61 :PUT HIIEO SHAPE lO-l.S.S,?) DR BAS 

62 SHAPE »3h PLOT SC,Rl WAPE «S«: HLIN Stl,£C-l,R: SHAPE •»: PLOT EC,R» RETURN 


63 : 

570 

: REN CALL HANOI (ND-l, 06, TB, FB) 

64 :PUT FIIEO 8MPE (D<2,4,6,e) 

572 

60SU6 552 

66 SHAPE <30: KLIM S,EC,R: RETURN 

374 

60SUB 532: REH RESTORE 

67 ; 

576 

RETURN 

69 i 

578 


70 j OUTPUT INCVES DISK) 

580 


71 ; 

701 

1 

1 

i 

72 :RRNV DSK D FROK B(FB) 

701 

1 

74 :SET6,D{6ET A;SC-ECiR;RlfVD 

712 


76 EpFB:T»BA(il,l;: IF 7<8 THEN T«Tn 

710 

POKE 41960,3: POKE 40961,192 

76 D<8A(6,T)s BOSUB 21: 603UB 40: BOSUB 52 

712 

INPUT ‘NOVE FRON BASE - 70 BAS - ',8* 

8f J=512+(fil32)+S:EM+D*l 

714 

FB> ASC (B<)-64:TB< ASC (Bi(l))-44iOB< ASC (8t<2»-64: RETURN 

82 FOR P<1 TO El: POKE P,12B: HEIT 

716 

: 

84 :UPDT BAS FB POINTERS 

721 

POKE 40960,3: POKE 41961,118 

66 6A(B,T)<I:BA<6,0)<T 

722 

PRINT 'HOVE '|N: POKE 40961,149 

67 j 

724 

PRINT 'FH TO ': POKE 920, FB: POKE 925, TB: RETURN 

BB N«NU: BOSUB 720: REN PUT NR NVE 

726 


90 :PREV£HT DIFB))0(TB; (iSLF PLAY ONLY)) 

998 


92 IF OB<0 THEN T«BA(TB,0)i IF T<8 THEN T«T4! 

999 


93 IF BAITB.TX)# IF D>BA(TB,T) THEN -ALL 17I07:TB«=FB 

1100 

: NAIN PBH CONTROL 

94 ; 

1001 



95 jPUT DSK D on I(TB) 

96 :Sn (A ( 0 ST), ST S-EC; R) PUT D 

98 B*TB;T«BA(B,f): 80SUB 41: 80SUB 52: COLOR <0-1 

IM ON 0 OOSUB 62,66,62,66,62,66,62,46 

112 rUPOT i:AS TB POINTERS 

IB4 BA(B,T;«I); IF T>i THE* T«T-1 

116 BA(B,0)>T: STURN 

lf7 : 

118 : 

Ml : HANOI HOVEIGa STACK 
MI : 

521 :SAVE (PSH) «, PB, TB, OB 

522 M<1,H)>FB:HA(2,N)-TB 


nil CALL 17146 

1112 DIN tf(2),BA(3,e),KA(3,B) 

1114 ilNlT BAS PTRS FDR NAI B DISKS 

1116 T<B:lf-TiBA(l,f}<T:BA{2,i)<T:lA(3,l)<T 

1117 ; 

1116 POKE 40961,2: POKE 41961,41 

1121 PRINT 'TONERS OF HANOI' 

1122 i 

1124 iPUT BASSi INSTR? 

1126 BOSUB 1127: 60SU6 ISlf 
1126 : 

1131 {NBR DSKS? AND START BASE 

1132 iRETURNS NO 4 Ml 2 OR 3) 

1134 BOSUB 1142 


1136 : 


1151 ;INIT BA FOd 6(«> 

1152 FOft D*ND TO ! STEF -I 

1»54 M(B,T)>DiT*MiBA(B,i)*r: KEU 
1134 i 

im iSETD; BETA; SC, EC F» DC) 

1142 0>BAlB,8h SOSUS 2ii SOSUS 40 
1144 t 

1071 iSET Rt PUT DSCS} »1R ItVS 
1172 R«?t IF S>2 THU H«12 
1174 60SU£ in2i eosufi U4l:il>f 
1976 : 

1077 SOSUt 72fi 80SUI ISSll REJ! ROVE FTONT PIC 
irs i 


l»l :nOVE FR«/TQ ? SETS (FB,TI,0B) 

ini 60S1IB 7l»i IF FB>3 THU BOSUB 1172s STOP t RU SUIT 

1132 IF TB>3 THEN BOStIB il72t SOTO l«31i RED ERRW 

1133 IF TB^FB THEN SOEUB 1172s SOTO IfSll PER ERROR 

1*84 IF BA(FB,3}>4 THEN SCSUi 1172s SOTS IBSls PER EHPTY BASE 

1333 IF P-t IF 06^ SQSJS S42i SQSUB 1172: STOP : REH HANOI KCUftSIVELY 

1484 : 


1107 : MKE OB N£S IN CASE IT MS SET, HOVE DISK 
1183 0B><-1): SOSUB 72 
1089 t 

18?« sDOlf ? 

im IF BAITB,6<(KB-1)}<>1 TICN INI 
:m 50S116 1172: STOP : REN BONE 
1094 s 
1098 : 

1100 : ONE TINE ONLY PER PlAY 

1101 ! 

1102 : 

nil : Pin N DSNS OK A BASE 

1112 SMlSiSl>5:S2>ll 

1114 FOR 0>» TO 1 STEP -1: C8LQK »Ihl 

1114 IF e/2« INT (D/2i THEN 6QSUB 44s SOTO 1120: REN EVNsFICi 
Ills BOSUB 62:3C‘:3Cn>EC>EC’i 
1121 R-R-1: NEIT : RETURN 
1121 s 

1125 iPUT BASES M/ LABELS 
1127 SI*12:S1*14:S2>13: COLOR «2 
1129 SC>«:cC»il:R-ll: 80SUI 42 
1131 SC>lliEC>20:R>i3s SOSUB 42 
1133 SC<2<:EC>30sR>ll: 60SUB 62 

1133 POKE 837, Is POKE 943, 2s POKE 337,3: RETURN 

1134 : 

1137 I 

1141 s GET Nl AND START BASEiBi 

1142 POKE 41940,3: POKE 40941,192 

1144 INPUT *KOK MANY OSKS U 70 tl*,NDt IF N0t(N11-?)M THEN 1142 

1145 s 

1144 60SUB n72s REN aR LNE14 
1147 I 

list POKE 41941,192 

ns? INPUT 'START BASE (A B OR C*,B<sB« ASC (8t>'44 

1154 60SUB 1172: RETM 

1155 : 

1140 NN«(2’‘»>-n POKE 40941, 9B 

1142 PRINT 'NINlNWI's POKE 40941,131 

1144 PRINT 'NOVES'S POKE 4l94i,144t PRINT NN: RETlSm 

1144 : 


1170 tCLEAR .14 

1172 FOR M4l. V. POKE X,l2l: NEXT s RETURN 

1174 j 

1175 I 

1300 s INSTRXV.jRS/NlSC 
1501 s 

1310 POKE 4»Y4r,::> ■ . 40941,94 

1511 INPUT 'M VLL- INSTRUCTIONS (YFK)‘,Bt 

1312 IF ’■'ifR 1519 

1513 POKE 4f9*;:94: PRINT 'iVTER FKW/IO PKWT ENTER: 
1314 PRINT 'It rH/TO Ifl lABJ FOR SEIF PLAV 

1513 PRINT '2: FH/TO/OTTCR (ABC) FOR IN-l' 

1514 PRINT *3: MlIT ANY LETTER BUT A,B,C' 

1517 PRINT 'HIT ,JIY KEY TO BEBIN' 

1518 Bt> KEYI (II: .• 34*" THEN 1516 

1519 FOR 1*404 TO 76?i POKE l,i2Ss NEXT s RETURN 

1520 I 

1521 3 ROVE FRONT PIC TlI t0 * 511) ((ROIWI) 

1522 POKE AKM,:: v.i 41409,01 REH (SA-FH) 

1323 POKE I. '■OKt 41411,233: lO (EA-FN) 

1524 POKE .. .. 41415, Is REN (SA-TOl 

1523 CAU 1452,255: REN SAVE 1*511 

1524 REnW 

1527 i 

1528 I 

1530 t HOVE FRONT PIC TE II - SinHIH-in 

1531 POKE 41001, Is POKE 41002, It REH (SA-TO) 

1532 POKE 41003, 2i 41104,1: REN (SA-FH) 

1533 call 41994 

1534 POKE 41H1,1. POKE 41M2,f: REH (SA-TO) 

1535 P0KE4... /• 0s REH (SA-FH) 

1534 CALL 41994: POKE 41437,253: REH SAV >-311 
1537 RETURN 

1533 s 

153? sCHAllSE LINE 1 STRINS 'AAAAAAMM* TO 

1540 »*C4fF' LMB IlFF R^253 

1541 s>BD77M*-]SR «77M CALL RTN AT 77H 

1542 :'39' RTS RETURN 

1543 (ABOVE INSTR Nil. j£ LOCATEP 8 4m4(A4(M) 

1544 s 

1545 EKO 


1 «E# SllB«ITTEO 8? BUY HILLER 

If POk:£ 24S7a,S4i POKE 24278,36: CALI 17(44 

2f BIH YIU) 

33 illK M(I) 
j5 SIHEKII 

4# A=-S> Oin TI44,2i}l j)IH DKS) 

43 OIR Lt(4l,8l): DIH S«<2f) 

49 REX LET TER FDR N PkD»AH 87i/82 

47 INPUT • ENTER - E - EKPHASHEI - F -TO CfiNSa EWTER -S- WNPRESSE!) -R- TO CAfKL-WAT IS TOUR CHOJSE%E( 
S« PfilXT : INPUT 'MHAT IS Tf€ DATE *,S<l PRINT 
31 FOR E»i TO Ns PRINT j'LINE f;Es INPUT H(E,2S) 

S3 INPUT ‘K0« NM LINE IN A0DRES*,H 
35 NEIT E: OOSUB 4M 
&f IF YI:‘TES* THEN S0SU6 BH 
&i IF Ei=‘D* THEN SOSIH S#5 
i2 IF EI«*L’ TffiN 60SUB 8H 

63 IF £«»*F* THEN 60SUB 8I( 

64 IF THEN SOSOI 821 

7# Us37s PRINT TAB (UIsO*: PRINT 
86 PRINT TAB fOs'SUY HILLER* 

95 PRINT TAB 1855*212 NOURTH SANTA ANA* 

161 PRINT TAB (f);*f«IDEST0 ,CA. 95354* 

iSi FOR 3*1 TO S: PRINT : NEXT S 

288 FOR K*\ TO K: PRINT TAB (8)5T<4K,2I1 

238 NEH K 

258 PRINT CHM 41#) 

261 SOTO 491 

48# IirUT ‘SA.UTAT!ON‘.S<] PRINT 
42# L»LMs INPUT L$4L,8«) 

45# IF L»4L,8#)**U1* THEN L*L-I 
461 6QT0 42J 
48# ftcTURN J REH 

49# T*(! PRINT TAB (l)sS*s PRINT i PRINT 

SI# REH L*L-1 ROT APPLICABLE NON 

521 FOR E»l TO Ls IF YJO'YES* THEN PRINT jEj*!*} 

54# IF E»S THEN T*l# 

545 IF L8IE,SI)**** THEN L«4£,B#)»** 

56# PRINT TAB (T55LI(E,S8) 

565 IF LI(E,8#)*** THEN T=l#s PRINT : SOSUB 59# 

57# T*8 
59# NEXT E 

62# PRINT TAB 433)5 *SINCERaY* 

645 PRINT TAB (33);*6Uy HILLER* 

65# PRINT TAB (!3)rHODESTO,CA* 

652 PRINT *# 

653 IF i(0«5 THEN PRINT : INPUT 'YOU NISH TO CONT.*;H«: IF ffl«iO* THEN END* 

655 PRINT i INPUT 'CtPY, CH OR NO'.YJ 

67# IF YJ«*CH* THEN 60SUB 72# 

673 IF YI»*COpy* THEN Y«»*YES* 

679 6DT0 6# 

72# REH 

73# J=JHs INPUT ’ENTER LINE I*, Is PRINT 
735 IF J>L THEN L*IH 
74# IF J*# THEN X0>3s RETURN 
75# PRINT LI(J,8#)s PRINT 
76# INPUT •CWN6£*,L»4J,8#) 

78# SOTO 736 

8#« PRINT C«(27>}*E‘: PRINT 
3#5 PRINT CHRilS): RETIHm 
8i# PRINT C«(27)|*fs RETURN 


82# PRINT CHR4IB)! RETURN 

83# REH ADD CHR427) 5 'F*! REH AU TO CAHSEl 

83» BE» COPT I C«. (CmSEI C0«ltt» HIU EIECWE P«1«I » 

M PEP HEADira UKS-S»-«-l»"LEfI M«6I» UISS -(9»-57»-mi6!««.-IT.5t. 
84! «E» SI6« OFF -44I-i!»- 
B7» REP IK EMI LEI lEB 
9M «EP SOPE Lilts ME FOS PT L'SE-CHAPCE 0 
ItM HEP OF FILE IP PEAFEST tlSFOSABU SPOIE. 


I K LET E AS DESIRE! 




SPACE HUNT SPACE ADVENTURE- YOU CONTROL YOUR SHIP THROUGHOUT THE GAUXY IN 

SEARCH OF THE ENEMY, AND DiiSTROY THEM BEFORE TIME RUNS OUT. COMMANDS ARE: WARP, NORMAL TRAVEL, 
PHOTONS, PHASERS, DOCKING, HELP, QUADRANT, TRANSFER, SHIELDS ,DESTRUCT, UNRESTRICTED TRA VEL, STATUS , AND 
TRACTOR BEAM. 8 K iROGRAM $6.00ppd INCLUDES AN 8 PAGE INSTRUCTION BOOKLET. 

SUPER ZIgaHBLIBS DELIGHT-PLAGE YOUR BETS, WIN THE ROUNDS, INVEST IF YOU DaREH 
BCRRCW MONEY. WIN AT KENO, THEN TAKE THE ULTIMATE CHALLENGE DOWN THE CROWDED FREEWAY AGAINST 
THE FLOW CF TRAFFICS THIS 8 K PROGRAM COULD POSSIBLY BECOME YOUR GREATEST IM-1 CHALLENGE OF 
ALL TIMES PLAY WISELY^ $6.00ppd INCLUDES A 6 PAGE INSTRUCTION BOOKLET. 

□ free! 


FREE WITH ANY PURCHASE-AN MC6800 INSTRUCTION SET SUMMARY F® MACHINE UNCUAGE PROGRAMMING. 
PRINTED IN FOLD-OUT CARD F®M , THE?E SUMMARIES CONTAIN VALUABLE INF®MATION FOR USE IN 
ASSEMELY/MAGHINE LANGUAGE MODES* MADE AVAILABLE BY WINTER C®P.-A LEADER IN MICRO- 
PROCESSOR TRAINING AND INTERFACING TECHJIOLOGY. 


VINYL DUSTCOVERS AVAIUBLE IN BUCK, BROWN, BLUE.RED, WHITE. 

F® STANDARD 8 K MACHINE $ 9 . 95 — FOR IM -1 WITH BB -1 $ 10 . 95 . 


mmsm MISSIONIMPROBABLE tim 


7 DIFFERENT S®EENS OF VARIOUS COL®, 3 SEPERATE MISSIONS-RECONNAISSANGE-SABOTAGE-ASSASSINATICN 
13 SCORING CATAG®IES, 4 SKILL LEVELS, INSTRUCTIONS F® EACH MISSION INCLUDED IN PROGRAM 
AND INCLUDES A 21 PAGE INSTRUCTION BOOKLET. TOP SC®INC F® C®PETETI0N1N MOVE THROUGHOUT 
AN ENEMY ISUND OUTPOST AVOIDING MACHINE GUNS AND A ROVING GUARD AND G®PLETE YO® SELECTED 
MISSION. THIS ADVENT®E PACKED PROGRAM IS THOUGHT- PROVOKING , CHALLENGING, AND FUN F® THE 


ENTIRE FAMILY. $14.95ppd 


MISSION:IMPBOBABLE 


‘ffli 


3 DIFFERENT GRAPHIC S®EENS CF VARIOUS COL®, 4 TIME DE®EMENTED MISSIONS TO WIN, BONUS 
SC®ING F® MISSION DIFFICULTY, AND TOP SC®ING F® CCMPETETION. THIS IS AN 8 K VERSION 
CF OPERATION ALPHA UTILIZING THE ‘SABOTAGE MISSION*. DIFFERENCES IN S®EEN AND SC®ING. 
$lQ.95ppa INCLUDES AN 8 PACE DETAILED INSTRUCTION BOOKLET. 


COMING 

SOON 


SCREEN WRITER 

A FASCINATING PROGRAM BY KEITH PHILLIPS 

BULL INVADERS 



A COMICAL HIGH RESOLUTION GAME OF SKILL AND DARING 


F® YOUR WONDIRFUL SUPPWT AND CCWMENTS D®I5C 0® 'CTAND CiPENINC*l WE WILL KEEP YOU INFORMED 
THROUGH 0® PRODUCTS NEWSLETTEK (INCLUDED IH EACH ®DEK) ® ALL NEW ITEMS AS THEY BEC®E 
AVAIUBLE. NEWSIfTTESS ARE AVAIUBLE TO ANYONE UPON REQUEST. 


PLEASE SEND: 

□ SPACE HUNT 8K $6.00ppd 

□ SUPER 21 8K $6.00ppd 

□ BOTH SUPER 21 AND SPACE HUNT $9.95 (SINCIE TAPE)ppd 

□ OPSRATICM ALPHA 16K $14„95ppd 

□ OPERATI® BRAVO 8K $10r95ppd 

□ BOTH ALPHA ARD BRAVO $21.95 (INDIVIDUAL TAPSS)ppa 

□ VINYL DUSTCOVHl (Circle color) BUCK BLUE RED WHITE 

□ F® STANDARD MACHINE $9.95 PL® $2.00 SH/HDL. 

□ FCR IM-l WITH BB-1 $10.95 PtIB $2.00 SH/KDL. 

(ILLINOIS RES. PLEASE ADD SJJ SALES TAX ON DUSTCOVSIS ONLY. 

PERSONAL CHECKS AND HONEY ®DERS ACCEPTED-ALL PROGRAHS SKIPPED NEXT DAY-PIEASS ALLOW 2 WEEIS 
ON D®TCOVE»S. 


GED'GHflHX LOTED 

P.O. Box 54 . Arrowsmith, (liinois 61 722 

NAME 

AD® ESS 

CITY STATE ZIP 


W&n-t 2 n-f csr-fn^t i Q-in 

Due to the cost or printing we must ask you again to limit your 
want ads to US lines. The cost o-f 25 cents pre line -for members 
and 75 cents for non-members is the same as is the limit of 32 
characters per line. Ads will be puclishsd in the order received, 
any leftovers will be held till the next issue- Deadline for ads 
is the 20th of the month ':!!!!!!!!*! Here we go again. The 
want ads are for small programs or hardware, they are not intended 
for commercial use. The professional type rates have gone down 
so don’t be afraid to ask again what they are. You can expect a 
pleasant surprise. 

We have another full mail:-.ng to 3,000 people coming up this year. 

*in*t*t**'»i**'ii.titii*.*ttttt*.****iftt**tK***t****l‘t******f>i*********.**«^ 

/=iD 

Each line can contain 32 characters including spaces. 

1 . 


2 . 


4. 


7. 


8 . 


9. 


10 . 


Check here if you do not want this information published!:! 


name* STell us a little about yourself 

% 

addr= $ 

# 

city* 

* 

state* X 

t 

zip* X 

« 

phone* 1 

* 




fQrZL 

ffy 'a:s?6npdg 

eefr-o'j T,!/<rnj 
OTViJ 
-i-’-rn 
__yr \ ' 


ti/ssis mm im 
*mL smmv 
msHms 
IIH XM 5d 

HomiH 8 1 ? r-Mi 


